library(ggplot2)
library(dplyr)
library(gapminder)
df %>% head()
df %>% nrow()
[1] 234
gapminder  %>%
  select(year) %>%
  unique() %>%
  nrow()
[1] 12
gapminder %>%
  select(year) %>%
  unique() %>%
  nrow()
[1] 12
gapminder %>%  
  group_by(year) %>% 
  summarize( n=n() )
gapminder %>%
  filter (year == "1952") %>%
  ggplot (aes ( x= gdpPercap, y= lifeExp)) +
  geom_point()

gapminder %>%
  filter(gdpPercap>90000, year==1952)
gapminder %>%
  filter(country != "Kuwait",year==1952) %>%
  ggplot (aes ( x= gdpPercap, y= lifeExp)) +
  geom_point()

gapminder %>%
  filter(country != "Kuwait",year==1952) %>%
  ggplot (aes ( x= gdpPercap, y= lifeExp, color=continent)) +
  geom_point()

gapminder %>%
  filter(country != "Kuwait",year==1952) %>%
  ggplot (aes ( x= gdpPercap, y= lifeExp, color=continent, size= pop)) +
  geom_point()

gapminder %>%
  filter(country != "Kuwait",year==1952) %>%
  ggplot (aes ( x= gdpPercap, y= lifeExp, color=continent, size= pop)) +
  geom_point()

gapminder %>%
  filter(country != "Kuwait",year==1952) %>%
  ggplot (aes ( x= gdpPercap, y= lifeExp, color=continent, size= pop)) +
  geom_point(alpha=0.8) + 
  theme_minimal()

library(plotly)
P<- gapminder %>%
  filter(country != "Kuwait",year==1952) %>%
  ggplot (aes ( x= gdpPercap, y= lifeExp, color=continent, size= pop)) +
  geom_point(alpha=0.8) + 
  theme_minimal() 
ggplotly(P)
data <- read.table("https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/1_OneNum.csv", header=TRUE)
df %>% nrow()
[1] 234
df %>% summary()
 manufacturer          model               displ            year           cyl           trans          
 Length:234         Length:234         Min.   :1.600   Min.   :1999   Min.   :4.000   Length:234        
 Class :character   Class :character   1st Qu.:2.400   1st Qu.:1999   1st Qu.:4.000   Class :character  
 Mode  :character   Mode  :character   Median :3.300   Median :2004   Median :6.000   Mode  :character  
                                       Mean   :3.472   Mean   :2004   Mean   :5.889                     
                                       3rd Qu.:4.600   3rd Qu.:2008   3rd Qu.:8.000                     
                                       Max.   :7.000   Max.   :2008   Max.   :8.000                     
     drv                 cty             hwy             fl               class          
 Length:234         Min.   : 9.00   Min.   :12.00   Length:234         Length:234        
 Class :character   1st Qu.:14.00   1st Qu.:18.00   Class :character   Class :character  
 Mode  :character   Median :17.00   Median :24.00   Mode  :character   Mode  :character  
                    Mean   :16.86   Mean   :23.44                                        
                    3rd Qu.:19.00   3rd Qu.:27.00                                        
                    Max.   :35.00   Max.   :44.00                                        
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGdhcG1pbmRlcikNCmBgYA0KDQpgYGB7cn0NCmRmICU+JSBoZWFkKCkNCmBgYA0KDQpgYGB7cn0NCmRmICU+JSBucm93KCkNCmBgYA0KDQpgYGB7cn0NCmdhcG1pbmRlciAgJT4lDQogIHNlbGVjdCh5ZWFyKSAlPiUNCiAgdW5pcXVlKCkgJT4lDQogIG5yb3coKQ0KYGBgDQpgYGB7cn0NCmdhcG1pbmRlciAlPiUNCiAgc2VsZWN0KHllYXIpICU+JQ0KICB1bmlxdWUoKSAlPiUNCiAgbnJvdygpDQoNCmBgYA0KDQpgYGB7cn0NCmdhcG1pbmRlciAlPiUgIA0KICBncm91cF9ieSh5ZWFyKSAlPiUgDQogIHN1bW1hcml6ZSggbj1uKCkgKQ0KYGBgDQoNCmBgYHtyfQ0KZ2FwbWluZGVyICU+JQ0KICBmaWx0ZXIgKHllYXIgPT0gIjE5NTIiKSAlPiUNCiAgZ2dwbG90IChhZXMgKCB4PSBnZHBQZXJjYXAsIHk9IGxpZmVFeHApKSArDQogIGdlb21fcG9pbnQoKQ0KDQpgYGANCg0KYGBge3J9DQpnYXBtaW5kZXIgJT4lDQogIGZpbHRlcihnZHBQZXJjYXA+OTAwMDAsIHllYXI9PTE5NTIpDQpgYGANCg0KYGBge3J9DQpnYXBtaW5kZXIgJT4lDQogIGZpbHRlcihjb3VudHJ5ICE9ICJLdXdhaXQiLHllYXI9PTE5NTIpICU+JQ0KICBnZ3Bsb3QgKGFlcyAoIHg9IGdkcFBlcmNhcCwgeT0gbGlmZUV4cCkpICsNCiAgZ2VvbV9wb2ludCgpDQpgYGANCmBgYHtyfQ0KZ2FwbWluZGVyICU+JQ0KICBmaWx0ZXIoY291bnRyeSAhPSAiS3V3YWl0Iix5ZWFyPT0xOTUyKSAlPiUNCiAgZ2dwbG90IChhZXMgKCB4PSBnZHBQZXJjYXAsIHk9IGxpZmVFeHAsIGNvbG9yPWNvbnRpbmVudCkpICsNCiAgZ2VvbV9wb2ludCgpDQpgYGANCmBgYHtyfQ0KZ2FwbWluZGVyICU+JQ0KICBmaWx0ZXIoY291bnRyeSAhPSAiS3V3YWl0Iix5ZWFyPT0xOTUyKSAlPiUNCiAgZ2dwbG90IChhZXMgKCB4PSBnZHBQZXJjYXAsIHk9IGxpZmVFeHAsIGNvbG9yPWNvbnRpbmVudCwgc2l6ZT0gcG9wKSkgKw0KICBnZW9tX3BvaW50KCkNCmBgYA0KYGBge3J9DQpnYXBtaW5kZXIgJT4lDQogIGZpbHRlcihjb3VudHJ5ICE9ICJLdXdhaXQiLHllYXI9PTE5NTIpICU+JQ0KICBnZ3Bsb3QgKGFlcyAoIHg9IGdkcFBlcmNhcCwgeT0gbGlmZUV4cCwgY29sb3I9Y29udGluZW50LCBzaXplPSBwb3ApKSArDQogIGdlb21fcG9pbnQoKSANCmBgYA0KDQpgYGB7cn0NCmdhcG1pbmRlciAlPiUNCiAgZmlsdGVyKGNvdW50cnkgIT0gIkt1d2FpdCIseWVhcj09MTk1MikgJT4lDQogIGdncGxvdCAoYWVzICggeD0gZ2RwUGVyY2FwLCB5PSBsaWZlRXhwLCBjb2xvcj1jb250aW5lbnQsIHNpemU9IHBvcCkpICsNCiAgZ2VvbV9wb2ludChhbHBoYT0wLjgpICsgDQogIHRoZW1lX21pbmltYWwoKQ0KYGBgDQpgYGB7cn0NCmxpYnJhcnkocGxvdGx5KQ0KDQpQPC0gZ2FwbWluZGVyICU+JQ0KICBmaWx0ZXIoY291bnRyeSAhPSAiS3V3YWl0Iix5ZWFyPT0xOTUyKSAlPiUNCiAgZ2dwbG90IChhZXMgKCB4PSBnZHBQZXJjYXAsIHk9IGxpZmVFeHAsIGNvbG9yPWNvbnRpbmVudCwgc2l6ZT0gcG9wKSkgKw0KICBnZW9tX3BvaW50KGFscGhhPTAuOCkgKyANCiAgdGhlbWVfbWluaW1hbCgpIA0KZ2dwbG90bHkoUCkNCmBgYA0KYGBge3J9DQpkYXRhIDwtIHJlYWQudGFibGUoImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9ob2x0enkvZGF0YV90b192aXovbWFzdGVyL0V4YW1wbGVfZGF0YXNldC8xX09uZU51bS5jc3YiLCBoZWFkZXI9VFJVRSkNCmBgYA0KDQpgYGB7cn0NCmRmICU+JSBucm93KCkNCmBgYA0KDQpgYGB7cn0NCmRmICU+JSBzdW1tYXJ5KCkNCmBgYA0KDQo=